Komputer for Alle 2001 #5/CD 5 (Black) - 2001.iso/K-CS.dcr/00349.ls

Text File | 2001-02-20 | 581 b | 20 lines

property startPos, StartTicks

on new me
  cursor(4)
  set startPos to the locH of sprite 4
  set StartTicks to the ticks
end

on exitFrame
  if the ticks > (StartTicks + 720) then
    go(#next)
  else
    set the locH of sprite 4 to startPos - 6 + ((the ticks - StartTicks) / 5.09999999999999964)
    set the width of sprite 4 to (the ticks - StartTicks) / 2.54999999999999982
    set the locH of sprite 5 to startPos - 6 + ((the ticks - StartTicks) / 5.09999999999999964)
    set the width of sprite 5 to (the ticks - StartTicks) / 2.54999999999999982
    go(#loop)
  end if
end